home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / STRIPSCR._ / STRIPSCR.
Encoding:
Text File  |  2001-03-02  |  1.6 KB  |  43 lines
  1. 10    ! **************************************************
  2. 20    ! Example: STRIPCHART (Scrolling)
  3. 30    !
  4. 40    ! This program builds a scrolling STRIPCHART widget
  5. 50    ! that displays the values of ten digits.
  6. 60    !
  7. 70    ! **************************************************
  8. 80    !
  9. 90    INTEGER I
  10. 100   DIM Vals(1:16)
  11. 110   ASSIGN @Strip TO WIDGET "STRIPCHART"
  12. 120   CONTROL @Strip;SET ("TITLE":" Example: STRIPCHART (Scrolling)")
  13. 130   CONTROL @Strip;SET ("SYSTEM MENU":"Quit")
  14. 140   CONTROL @Strip;SET ("VISIBLE":0,"SHARED X":1)
  15. 150   CONTROL @Strip;SET ("X":50,"Y":25,"WIDTH":400,"HEIGHT":325)
  16. 160   CONTROL @Strip;SET ("TRACE COUNT":10,"CURRENT TRACE":0)
  17. 170   CONTROL @Strip;SET ("POINT CAPACITY":10000)
  18. 180   CONTROL @Strip;SET ("CURRENT AXIS":"X","ORIGIN":0,"RANGE":50)
  19. 190   CONTROL @Strip;SET ("DIGITS":11,"NUMBER FORMAT":"FIXED","USER SCROLL":1)
  20. 200   CONTROL @Strip;SET ("CURRENT AXIS":"Y","ORIGIN":-.5,"RANGE":10)
  21. 210   ON EVENT @Strip,"SYSTEM MENU" GOTO Finis
  22. 220   FOR I=1 TO 10
  23. 230     Vals(I)=(I-5)*.05
  24. 240     CONTROL @Strip;SET ("CURRENT TRACE":I,"TRACE LABEL":"DIGIT "&VAL$(I-1))
  25. 250   NEXT I
  26. 260   CONTROL @Strip;SET ("VISIBLE":1)
  27. 270   ON EVENT @Strip,"SCROLLED" GOSUB Evnt
  28. 280   FOR A=0 TO 1000000
  29. 290     CONTROL @Strip;SET ("POINT LOCATION":A,"VALUES":Vals(*))
  30. 300     Vals(1)=Vals(1)+1
  31. 310     I=1
  32. 320     WHILE Vals(I)>9.5
  33. 330       Vals(I)=Vals(I)-10
  34. 340       I=I+1
  35. 350       Vals(I)=Vals(I)+1
  36. 360     END WHILE
  37. 370   NEXT A
  38. 380 Evnt: RETURN
  39. 390   !
  40. 400 Finis:   !
  41. 410   ASSIGN @Strip TO *         ! Delete STRIPCHART widget
  42. 420   END
  43.